home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / gag / CPU.lha / CPU.mod < prev   
Text File  |  1994-10-12  |  14KB  |  206 lines
  1. MODULE CPU;
  2.  
  3. IMPORT
  4.         I:Intuition,d:Dos,u:Utility,y:SYSTEM,Break;
  5.  
  6.  
  7.  
  8.  
  9. TYPE    mdType=ARRAY 1638 OF INTEGER;
  10.  
  11. (* $DataChip+ *)
  12.  
  13. CONST
  14.         myData = mdType
  15. (
  16.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,
  17.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,
  18.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,
  19.         0FFFFU,0EAFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFF5U,
  20.         05555U,0577FU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFA0U,00000U,
  21.         0003FU,0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0D544U,04444U,04445U,
  22.         0FFFFU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFFU,0E000U,00000U,00000U,07FFFU,
  23.         0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FFFDU,05555U,05555U,05555U,057FFU,0FFFFU,
  24.         0FFF8U,0FFFFU,0FFFFU,0FFFAU,00000U,00000U,00000U,003FFU,0FFFFU,0FFF8U,
  25.         0FFFFU,0FFFFU,0FFD4U,04444U,04444U,04444U,0457FU,0FFFFU,0FFF8U,0FFFFU,
  26.         0FFFFU,0FFE0U,00000U,00000U,00000U,0003FU,0FFFFU,0FFF8U,0FFFFU,0FFFFU,
  27.         0FD55U,05555U,05555U,05555U,05557U,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0FA00U,
  28.         00000U,00000U,00000U,00001U,0FFFFU,0FFF8U,0FFFFU,0FFFFU,0D444U,04444U,
  29.         04444U,04444U,04444U,07FFFU,0FFF8U,0FFFFU,0FFFFU,0E000U,00000U,00000U,
  30.         00000U,00000U,07FFFU,0FFF8U,0FFFFU,0FFFFU,05555U,05555U,05555U,05555U,
  31.         05555U,05FFFU,0FFF8U,0FFFFU,0FFFFU,08000U,00000U,00000U,00000U,00000U,
  32.         00FFFU,0FFF8U,0FFFFU,0FFFDU,04444U,04444U,04444U,04444U,04444U,047FFU,
  33.         0FFF8U,0FFFFU,0FFFEU,00000U,00000U,00000U,00000U,00000U,003FFU,0FFF8U,
  34.         0FFFFU,0FFF5U,05555U,05555U,05511U,00115U,05555U,055FFU,0FFF8U,0FFFFU,
  35.         0FFE8U,00000U,00000U,00000U,00000U,00000U,000FFU,0FFF8U,0FFFFU,0FFD4U,
  36.         04444U,04445U,04444U,04045U,04444U,0447FU,0FFF8U,0FFFFU,0FFE0U,00000U,
  37.         00000U,00000U,00000U,0E000U,0001FU,0FFF8U,0FFFFU,0FF55U,05555U,05555U,
  38.         05110U,00000U,07555U,0555FU,0FFF8U,0FFFFU,0FE00U,00000U,00000U,00000U,
  39.         00000U,03800U,0000FU,0FFF8U,0FFFFU,0FD44U,04444U,04554U,05444U,04440U,
  40.         01D44U,04447U,0FFF8U,0FFFFU,0FA00U,00000U,00200U,00000U,00000U,00E00U,
  41.         00003U,0FFF8U,0FFFFU,0F555U,05555U,05555U,05110U,00000U,00755U,05555U,
  42.         0FFF8U,0FFFFU,0F000U,00000U,00880U,00000U,00000U,001E0U,00001U,0FFF8U,
  43.         0FFFFU,0D444U,04445U,05544U,04444U,04400U,001F4U,04445U,0FFF8U,0FFFFU,
  44.         0E000U,00002U,02220U,00000U,00000U,000F8U,00000U,0FFF8U,0FFFFU,05555U,
  45.         05555U,05555U,05150U,00000U,00075U,05555U,07FF8U,0FFFFU,08000U,00008U,
  46.         00800U,00000U,00000U,0003EU,00000U,03FF8U,0FFFFU,04444U,04455U,05554U,
  47.         05444U,04400U,0001DU,04444U,05FF8U,0FFFEU,00000U,00022U,02220U,00000U,
  48.         00000U,0000FU,00000U,01FF8U,0FFFDU,05555U,05555U,05555U,05110U,00000U,
  49.         00007U,05555U,05FF8U,0FFFEU,00000U,00088U,08080U,00000U,00000U,00007U,
  50.         08000U,00FF8U,0FFFCU,04444U,04555U,05555U,04444U,04000U,00007U,0C444U,
  51.         047F8U,0FFF8U,00000U,00222U,02220U,00000U,00000U,00003U,0E000U,007F8U,
  52.         0FFF5U,05555U,05555U,05555U,05110U,00000U,00001U,0F555U,057F8U,0FFF8U,
  53.         00000U,00808U,00808U,00000U,00000U,00001U,0F800U,003F8U,0FFD4U,04444U,
  54.         05555U,05554U,05444U,04000U,00001U,0F444U,045F8U,0FFE0U,00000U,02222U,
  55.         02222U,00000U,00000U,00000U,0F800U,003F8U,0FFD5U,05555U,05555U,05555U,
  56.         05500U,00000U,00000U,07555U,055F8U,0FFC0U,00000U,08880U,08880U,00000U,
  57.         00000U,00000U,0F800U,001F8U,0FFC4U,04445U,05555U,05555U,04440U,00000U,
  58.         00000U,07D44U,045F8U,0FF80U,00002U,02222U,02222U,00000U,00000U,00000U,
  59.         07E00U,000F8U,0FF55U,05555U,05555U,05555U,05100U,00000U,00500U,07D55U,
  60.         05578U,0FF80U,00000U,00808U,00808U,00000U,00000U,00200U,03E00U,000F8U,
  61.         0FF44U,04455U,05555U,05555U,05444U,00000U,00140U,03F44U,04478U,0FF00U,
  62.         00002U,02222U,02222U,00000U,00000U,00200U,03E00U,00078U,0FF55U,05555U,
  63.         05555U,05555U,05500U,00000U,01554U,01F55U,05578U,0FE00U,00008U,08088U,
  64.         08088U,08000U,00000U,0FA00U,03F80U,00038U,0FF44U,04455U,05555U,05555U,
  65.         04440U,00005U,05554U,01F44U,04478U,0FE00U,00022U,02222U,02222U,02000U,
  66.         0000EU,0A200U,03F80U,00078U,0FD55U,05555U,05555U,05555U,05100U,00175U,
  67.         05554U,01F55U,05578U,0FC00U,00008U,00808U,00808U,00000U,003FAU,0AA00U,
  68.         01F80U,00038U,0FC44U,04555U,05555U,05555U,05440U,01555U,05554U,01FC4U,
  69.         04478U,0FC00U,00022U,02222U,02222U,02000U,07EAAU,02A00U,01FE0U,00038U,
  70.         0FD55U,05555U,05555U,05555U,05505U,07555U,05550U,01FD5U,05578U,0F800U,
  71.         00080U,08880U,08880U,0800FU,0FAAAU,0AA80U,01FE0U,00038U,0F444U,04555U,
  72.         05555U,05555U,05455U,05555U,05557U,0FFD4U,04478U,0F800U,00222U,02222U,
  73.         02222U,022FFU,0A2A2U,022CFU,0FFE0U,00038U,0F555U,05555U,05555U,05555U,
  74.         05575U,05555U,055DFU,0FFD5U,05578U,0F000U,00008U,00808U,00808U,00FFAU,
  75.         0AAAAU,0AFFFU,0FFE8U,00038U,0F444U,04555U,05555U,05555U,05555U,05555U,
  76.         05FFFU,0FFD4U,04478U,0F000U,00222U,02222U,02222U,03FEAU,02A2AU,0FFFFU,
  77.         0FFF8U,00038U,0F555U,05555U,05555U,05557U,07F55U,05555U,0FFFFU,0FFFDU,
  78.         05578U,0F000U,00088U,08088U,0AFFFU,0FFAAU,0AAAFU,0FFFFU,0FFFEU,0BFF8U,
  79.         0F444U,04555U,05555U,0FFFFU,0FD55U,0555FU,0FFFFU,0FFFFU,0FFF8U,0E000U,
  80.         00222U,02FFFU,0FFFFU,0FE22U,022FFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05555U,
  81.         07FFFU,0FFFFU,0FD55U,0557FU,0FFFFU,0FFFFU,0FFF8U,0E000U,00BFFU,0FFFFU,
  82.         0FFFFU,0FEAAU,0ABFFU,0FFFFU,0FFFFU,0FFF8U,0F444U,05FFFU,0FFFFU,0FFFFU,
  83.         0FD55U,057FFU,0FFFFU,0FFFFU,0FFF8U,0E000U,00FFFU,0FFFFU,0FFFFU,0FE2AU,
  84.         03FFFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05FFFU,0FFFFU,0FFFFU,0FF55U,07FFFU,
  85.         0FFFFU,0FFFFU,0FFF8U,0E000U,01FFFU,0FFFFU,0FFFFU,0FFABU,0FFFFU,0FFFFU,
  86.         0FFFFU,0FFF8U,0F444U,05FFFU,0FFFFU,0FFFFU,0FF57U,0FFFFU,0FFFFU,0FFFFU,
  87.         0FFF8U,0E000U,01FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
  88.         0F555U,05FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,
  89.         01FFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F444U,05FFFU,
  90.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,01FFFU,0FFFFU,
  91.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F555U,05FFFU,0FFFFU,0FFFFU,
  92.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,0E000U,03FFFU,0FFFFU,0FFFFU,0FFFFU,
  93.         0FFFFU,0FFFFU,0FFFFU,0FFF8U,0F455U,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
  94.         0FFFFU,0FFFFU,0FFF8U,0E6FFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
  95.         0FFFFU,0FFF8U,0F7FFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,
  96.         0FFF8U,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
  97.         0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFFFU,0FFF8U,
  98.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  99.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  100.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  101.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  102.         00888U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  103.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,0002AU,02AAAU,02AA8U,
  104.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  105.         00000U,00000U,00000U,00000U,00000U,00888U,08888U,08888U,08000U,00000U,
  106.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  107.         00000U,00000U,00002U,0A2A2U,0A2A2U,0A2A2U,0A200U,00000U,00000U,00000U,
  108.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  109.         00008U,08888U,08888U,08888U,08880U,00000U,00000U,00000U,00000U,00000U,
  110.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,0022AU,0AA2AU,
  111.         0AA2AU,0AA2AU,0AA2AU,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  112.         00000U,00000U,00000U,00000U,00000U,00000U,00888U,08888U,08888U,08888U,
  113.         08888U,08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  114.         00000U,00000U,00000U,00000U,022A2U,0A2A2U,0A2A2U,0A2A2U,0A2A2U,0A000U,
  115.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  116.         00000U,00000U,08888U,08888U,088A8U,0A888U,08888U,08800U,00000U,00000U,
  117.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00002U,
  118.         02AAAU,02AAAU,02AAAU,0AAA8U,02AAAU,02A00U,00000U,00000U,00000U,00000U,
  119.         00000U,00000U,01110U,00000U,00000U,00000U,00000U,00008U,08888U,08888U,
  120.         08A8AU,0AAAAU,00888U,08880U,00000U,00000U,00000U,00000U,00000U,00000U,
  121.         00004U,00000U,00000U,00000U,00000U,000A2U,0A2A2U,0A022U,0A2AAU,0AAAAU,
  122.         0A0A2U,0A2A0U,00000U,00000U,00000U,00000U,00000U,00001U,00111U,00000U,
  123.         00000U,00000U,00000U,00088U,08888U,08008U,088AAU,0AAAAU,0A808U,08888U,
  124.         00000U,00000U,00000U,00000U,00000U,00000U,00044U,04400U,00000U,00000U,
  125.         00000U,0022AU,0AA28U,00002U,022AAU,0AAAAU,0AA02U,0AA2AU,00000U,00000U,
  126.         00000U,00000U,00000U,00001U,01111U,01500U,00000U,00000U,00000U,00888U,
  127.         08880U,00008U,08A8AU,0AAAAU,0AA80U,08888U,08000U,00000U,00000U,00000U,
  128.         00000U,00000U,00045U,05500U,00000U,00000U,00000U,022A2U,0A280U,00002U,
  129.         0A2AAU,0AAAAU,0AA80U,0A2A2U,08000U,00000U,00000U,00000U,00000U,00001U,
  130.         00111U,05100U,00000U,00000U,00000U,08888U,08800U,00000U,088AAU,0AAAAU,
  131.         0AAA0U,00888U,08000U,00000U,00000U,00000U,00000U,00000U,00445U,05550U,
  132.         00000U,00000U,00000U,02AAAU,02000U,00002U,02AAAU,0AAAAU,0AAA8U,00AAAU,
  133.         02000U,00000U,00000U,00000U,00000U,00001U,01111U,01514U,00000U,00000U,
  134.         00000U,08888U,08000U,00000U,08A8AU,0AAAAU,0AAA8U,00888U,08800U,00000U,
  135.         00000U,00000U,00000U,00000U,00445U,05554U,00000U,00000U,00002U,0A2A2U,
  136.         08000U,00000U,0A2AAU,0AAAAU,0AAAAU,002A2U,0A000U,00000U,00000U,00000U,
  137.         00000U,00001U,01111U,011D4U,00000U,00000U,00008U,08888U,00000U,00000U,
  138.         088AAU,0AAAAU,0AAAAU,00088U,08800U,00000U,00000U,00000U,00000U,00000U,
  139.         04455U,05555U,00000U,00000U,0002AU,0AA28U,00000U,00000U,022AAU,0AAAAU,
  140.         0AAAAU,0002AU,0AA00U,00000U,00000U,00000U,00000U,00011U,01115U,0595DU,
  141.         00000U,00000U,00008U,08888U,00000U,00000U,08AAAU,0AAAAU,0A8AAU,08088U,
  142.         08800U,00000U,00000U,00000U,00000U,00000U,04555U,05415U,00000U,00000U,
  143.         00022U,0A2A0U,00000U,00000U,022AAU,0AAAAU,0A80AU,08022U,0A200U,00000U,
  144.         00000U,00000U,00000U,00001U,01115U,0D001U,0C000U,00000U,00088U,08880U,
  145.         00000U,00000U,008AAU,0AAAAU,08088U,08008U,08880U,00000U,00000U,00000U,
  146.         00000U,00004U,05554U,00000U,04000U,00000U,000AAU,02A00U,00000U,00000U,
  147.         022AAU,0AAA8U,00022U,0802AU,02A80U,00000U,00000U,00000U,00000U,00011U,
  148.         01580U,00001U,0C000U,00000U,00088U,08880U,00000U,00000U,00AAAU,0AA00U,
  149.         0008AU,08008U,08880U,00000U,00000U,00000U,00000U,00005U,05000U,00001U,
  150.         04000U,00000U,002A2U,0A200U,00000U,00000U,002AAU,0A000U,00002U,0A002U,
  151.         0A280U,00000U,00000U,00000U,00000U,00011U,00000U,00001U,0C000U,00000U,
  152.         00088U,08800U,00000U,00000U,008A8U,00000U,0000AU,0A008U,08880U,00000U,
  153.         00000U,00000U,00000U,00040U,00000U,00007U,00000U,00000U,0022AU,0A800U,
  154.         00000U,00000U,00200U,00000U,00020U,0000AU,0AA00U,00000U,00000U,00000U,
  155.         00000U,00000U,00000U,00000U,00000U,00000U,00088U,08800U,00000U,00000U,
  156.         00000U,00000U,00000U,00008U,08880U,00000U,00000U,00000U,00000U,00000U,
  157.         00000U,00000U,00000U,00000U,002A2U,0A000U,00000U,00000U,00000U,00000U,
  158.         00000U,00002U,0A200U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  159.         00000U,00000U,00888U,08800U,00000U,00000U,00000U,00000U,00000U,00000U,
  160.         08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  161.         00AAAU,02000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  162.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00888U,08000U,
  163.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  164.         00000U,00000U,00000U,00000U,00000U,00000U,002A2U,0A000U,00000U,00000U,
  165.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  166.         00000U,00000U,00000U,00000U,00888U,08000U,00000U,00000U,00000U,00000U,
  167.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  168.         00000U,00000U,00A2AU,0A000U,00000U,00000U,00000U,00000U,00000U,00000U,
  169.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  170.         00888U,08000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  171.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,002A2U,08000U,
  172.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  173.         00000U,00000U,00000U,00000U,00000U,00000U,00888U,08000U,00000U,00000U,
  174.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  175.         00000U,00000U,00000U,00000U,00200U,00000U,00000U,00000U,00000U,00000U,
  176.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  177.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  178.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,
  179.         00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U,00000U
  180. );
  181.  
  182. VAR
  183.         im:I.Image;
  184.         wn:I.WindowPtr;
  185.  
  186. BEGIN;
  187. wn:=I.OpenWindowTagsA(NIL,I.waInnerHeight,91,I.waInnerWidth,142,
  188.  I.waTitle,y.ADR("CPU Usage: 100 %"),
  189.  I.waFlags,LONGSET{I.activate,I.windowDrag,I.windowDepth},u.done);
  190. im.leftEdge:=wn.borderLeft;
  191. im.topEdge:=wn.borderTop;
  192. im.width:=142;
  193. im.height:=91;
  194. im.depth:=2;
  195. im.planePick:=SHORTSET{0..1};
  196. im.planeOnOff:=SHORTSET{};
  197. im.nextImage:=NIL;
  198. im.imageData:=y.ADR(myData);
  199. REPEAT;
  200. I.DrawImage(wn.rPort,im,0,0);
  201. UNTIL FALSE;
  202. CLOSE;
  203. I.CloseWindow(wn);
  204. END CPU.
  205.  
  206.